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MODULE LIBSTPARSE ( 
{DENT = 'v04-000' 
BEGIN 


nn 


EEE S SSIS S ST TTT TTT S TTT PTT TT Tre Te Teeter eric rir iri citi tri t iit ti tit titi tit itit ty 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
'® ONLY IN ACCORDANCE WITH E SUCH LICENSE AND WITH 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR ARREARS 


ae 
FACILITY: System Library 
ABSTRACT: 


TPARSE is a general purpose state table driven parser. Its 
general design is that of a finite state parser; however, 
some of its features allow non-deterministic parsing and 
Limited use as a push-down parser. The input string is parsed 
by interpreting the transitions in the user suppled state 
table; user supplied action routines are called as indicated 
in the state table to provide the semantics associated with 
the table specified syntax. 


ENVIRONMENT: 


Native node star processor; no apgras ing system facilities are 
needed. Minimum of 21 longwords of stack required. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Oct-1976 13:55 
MODIFIED BY: 
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; 8 p28 1! Add multi-national characters to alphabetics; add a 

; 26 B26 : } character data type for hex digits 

; (UOT O06) 1} V03-003 ACG0392 Andrew C. Goldstein, 19-Jan-1984 21:32 
;. % Bpe8 +} Add match-all identifier to ident parsing; also add 

; o7 Boer } TPAS_FILESPEC item. 

; 0065 1! v03-002 ACG0351 Andrew C. Goldstein, Piers 15:42 
; @& B208 1} Add wiid cards to UIC and IDENT parsing; disallow explicit 
3 of poet : -1 values for group and member 

; & 4 1! V03-001 ACG0345 Andrew C. Goldstein, 29-Jul-1983 15:20 
3 fy TA : Add UIC and identifier token types 

Se th) 1! V02-009 ACG0263 Andrew C. Goldstein, 8-Feb-1982 23:35 
: ff th : } Fix token pointer after subexpression parse failure 

ee 0075 1! v02-008 ACG0203 Andrew C. Goldstein, 28-Apr-1981 15:44 
: 4 Boye ! Propagate return status past subexpression calls 

a) 0078 1! v02-007 ACGO155 Andrew C. Goldstein, 12-Mar-1980 10:04 
$ fe it 44 : Allow subexpressions to change the command string 

z= 8) 0081 1! 1-006 ACG26405 Andrew C. Goidstein, 66-Dec-1979 20:14 
; ag it ! Change string count in control block to word 

5; & 0084 1! 1-005  ACG0088 Andrew C. Goldstein, 4-Dec-1979 17:22 
Bees : Propagate action routine status through subexpression returns 
3; 687 0087 1! vO004 ACGO019 — Andrew C. Goldstein, 26-Mar-1978 16:27 

; 88 0088 1! Add return of action routine status; fix trailing blanks problem 

; 0089 1! Change PSECTS to new procedure Library standards 

; 0090 1! 

: | (91 0091 1 !e* 

eee, 0092 1 

.'9 0093 1 

: 94 0094 1 LIBRARY A etd Lal i 

; 5 0095 1 LIBRARY ‘SYS$LIBRARY:TPAMAC.L32'; 

; 0096 1 

. OF 0097 1 

; 0098 1 

: 99 0099 1 PSECT 

: 100 0100 1 CODE = _LIBSCODE (SHARE, PIC), 

: 101 319) 1 PLIT = “LIBSCODE (SHARE, PIC); 

: 196 1 § 1 

; 10 0103 1 LINKAGE 

3; 6104 0104 1 L_GETSTRING = CALL (STANDARD, STANDARD) 

; 105 0105 1 : GLOBAL (CHAR_COUNT = 6); 

3 106 9198 1 

s 10 st 1 FORWARD ROUTINE 

; 108 198 1 LIBSTPARSE, ! main parser routine. 

3; 109 et , 9 GETSTRING : L_GETSTRING, ! extract a basic string token 

; 110 110 1 PARSE_FILESPEC, ' parse filespec agin 

s 191 111. «1 PARSE_IDENT; ! parse identifier string 

: Ne M6 1 

2. Sy 113° «1 

; «116 114 1 EXTERNAL ROUTINE 
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G_MODE SaE NER AL} 


G_-MODE 


G_MODE (GENERAL); 
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PARSE. 833; 


! decimal to binary conversion 


i octal to binary conversion 


! hex to binary conversion 
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3 6499 118 1! 

; : 133 } Local macros and symbol definitions 

; 3 ¢ g 1 #1 

- 3 1 ; 1 LITERAL 

s 126 4 1 

; : 5 4 ¢ : } Character codes 

3 5 4 § 1 SPACE = ee ae ' space character 

> 128 1 1 TERMINATOR = %0'377', ' 9 string terminator 

; 136 4 8 : TAB = 70°11", ! tab character 

: ; 1 018 } String types (input to GETSTRING routine) 

Ss : O12 1 SPACES = 0, 

3 «(134 oie 1 NUMERIC = 1, 

3 135 0134 1 HEXNUMERIC = ¢: 

; 1 0135 1 ALPHANUMERIC = 3, 

s to7 0136 «(1 SYMBOL = 4, 

; 138 0137 1 

3; 139 0138 1 ! Token types 

: 140 0139 1! 

3; «6141 0140 1 SF ILESPEC = ZX'FF* AND TPAS_FILESPEC, ! filespec expression 

; 16 0141 1 $uIC = ZX'FF* AND TPAS_UIC, ! UIC expression 

; (14 oes 1 $SIDENT = ZX'FF* AND TPAS_IDENT, ! identifier expression 
> (144 01435 1 ANY = ZX'FF* AND TPAS_ANY, ! any single character 
3: «6145 0144 1 SALPHA = ZX'FF* AND TPAS_ALPHA, ! any alphabetic character 
: 146 0145 1 $DIGIT = ZX'FF* AND TPAS_DIGIT, ! any numeric character 
> 147 0146 1 S$STRING = XX'FF* AND TPAS_STRING, ! any alphanumeric strin 3 
: 148 0147 1 $SYMBOL = ZX'FF* AND TPAS_SYMBOL, ! any symbol constituent set string 
> 149 0148 1 LANK = ZX'FF* AND TPAS_BLANK, ! any string of spaces and tabs 
; 0149 1 SDECIMAL = Z2X'FF* AND TPAS_DECIMAL, ! decimal number 

s 1 0150 1 CTAL = ZX'FF* AND TPAS_OCTAL, ' octal number 

: 136 0151 1 HEX = ZX'FF* AND TPAS_HEX, ! hexadecimal number 

; 3136 1 SLAMBDA = ZX'FF* AND TPAS_LAMBDA, ! empty string 

; 154 0153 1 EOS = %X'FF* AND TPAS-EOS i end of string 

: 155 0154 1 SSUBEXPR = %X'FF* AND TPAS~SUBEXPR, i subexpression 

; 156 0155 1 NULL _MATCH = TPAS_LAMBDA, ! codes geq match null strings 

: 157 0156 1 HIGH_ASCII = 255, ! highest ASCII character code 

; 158 0157 1 KEYWORD = 256, ' start of keyword codes 

: 159 0158 1 HIGH_KEYWORD = 475, ! highest keyword code 

; 160 0159 1 LOW SPECIAL = S$FILESPEC, ! first special type code 

3 193 gie9 1 HIGA_SPECIAL = S$SUBEXPR; ! last special type code 

3 i 

; 183 at 1 ! Macres to determine character types 

; 164 B18 1! 

3; 6165 164 1 

: 166 165 1 MACRO 

3: 167 4 198 1 IS_ALPHABETIC (CHAR) = (SELECTONE CHAR OF 

; «4168 M0167 1 aH 

3; «6169 0168 1 ZASCII ‘A* TO ZASCII ‘Z', 

; 170 4 199 1 eaecht "a’ TO ZASCII ‘2°, 

s tT m0170 1 Zx'CC* TO ZX'CF', 

3 ive m0171 1 ZX'D1' TO ZxX'DD', 

: 17 tal 176 1 ZX"DF* TO ZX'EF' 

> 17% e 0173 1 XX'F1" TO RX'FD'S: 1; 

: 175 m0174 1 COTHERWISE): 0; 
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H re 0 6¢ } GLOBAL ROUTINE LIBSTPARSE (STATE_VECTOR, START_STATE, KEYTAB) = 
; 266 6 64 1 I++ 

: 267 65 1! 

> 268 0266 1 ! FUNCTIONAL DESCRIPTION: 

; 269 8 67 1! : 

: sf 68 1! This routine is the main parser routine. 

; 27) 0269 1! 

3 sie 0270 1! 

: $f 0271 1 ! CALLING SEQUENCE: 

: 7% 0 ie 1! LIBSTPARSE (ARG1, ARG2, ARG3) 

3 st) 8 75 1! 

; 276 74 (1« 

B- 2re 0275 1 ! INPUT PARAMETERS: 

; ef 0276 1! ARG1 = address of state vector, containing: 

: e279 Q277 1! options longword 

; 280 0278 1! bit 0 set to match blanks and tabs 

; 281 0279 1! clear to ignore blanks and tabs 

3 see 0280 1! bit 1 set to allow minimum abbreviation of keywords 
;: 2 OSes 1! clear to use match count 

; , 284 0 Ht . 3 high byte = keyword match count (0 = exact) 
; ° 285 0283 1! string descriptor of string to be parsed 

; 286 0284 1! data made available to action routines: 

: esr 0285 1! string descriptor of matching token 

: 288 0286 1! single character token 

> 289 0287 1! numerical value of numeric token 

; 290 0288 1! ARG2 = address of starting state in state table 

; 291 0289 1! ARGS = address of keyword table 

3: eve 0290 1! 

. 200 0291 1 ! IMPLICIT INPUTS: 

: 294 0292 1! NONE 

; 295 0293 1! 

: 296 0294 1 ! OUTPUT PARAMETERS: : 

s evr 0295 1! string descriptor pointed to by ARG! updated to indicate 
: 298 0296 1! string not processed by the parser 

3 444 0297 1! 

H 00 0298 1 ! IMPLICIT OUTPUTS: 

3; 0} 5943 <4 NONE 

: 302 0300 1! 

; 03 0301 1 ! ROUTINE VALUE: 

3 304 B08 1! successful parse 

: $02 B36 3 LIBS_SYNTAXERR if unsuccessful parse. 

; 306 304 1! LIBS_INVTYPE if state table is invalid | 

3 4 Beo2 : value of action outine rejecting transition 

: 309 0307 1 ! SIDE EFFECTS: ; 

; 310 0308 1! none except as produced by user's action routines 

s 311 0309 1! 

; \¢ 0310 1 !-- 

ee i 0311 1 

3 «6314 b316 1 

3 315 031 BEGIN 

2; 3% 314 

3 17 315 LOCAL 

: 318 #13 STATE, ! state table pointer ’ 
3 19 31 LAST SPACE, ! character count of last string of spaces 
; 30 0318 ACT_STATUS : BLOCK (4, BYTE], ! status return of action routine 


” 
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1 H TYPE : BLOCK (4, BYTE]; ! syntax type of current transition 
MAP 
STATE_VECTOR : REF BLOCK [ origi. ! user state vector 
KEYTAB : REF VECTORL,WORD,SIGNEDJ; ! keyword table 
BUILTIN 


TESTBITSC; 


TPARSE data area available to action routines. 
MACRO 


STATE LENGTH = STATE_VECTORCTPASL_COUNTI% ! Length of user supplied state vector 
STRING_COUNT = (STATE VECTORCTPASC_STRINGCNT])<0,16>%, ! byte count of string being parsed 
STRING POINTER = STATE_VECTORCTPASL_STRINGPTRIZ, ! address of string being parsed 
TOKEN_COUNT = STATE_VECTORLTPASL_TOKENCNTJ%, ! byte count of current token 
TOKEN POINTER = STATE_VECTORLTPASL_TOKENPTRIJZ, ! address of current token 
_CHAR = STATE_VECTORLTPASL_CHARI2 ! current single character token 

STATE _NUMBER = STATE_VECTOR TPASL NUMBER IZ, ! numerical value of number token 

ATE_PARAM = STATE_VECTORLTPASL_PARAM]2 ! action routine parameter from state table 
MCOU = STATE-VECTORCTPASB_-MCOUNTJ£, | match abbreviation count 
SPACE_FLAG = STATE_VECTORLTPASV_BLANKSJ%, ! process spaces explisitty 
ABBRFA_FLAG = STATE_VECTORLTPASV_ABBRFMJ%, ! allow first match abbreviations 
ABBREV FLAG = STATE_VECTORLTPASV_ABBREVJ%, ! allow minimal abbreviations 
AMBIG_FLAG = STATE_VECTORLTPASV_AMBIGJ2; ! ambiguous keyword in this state 


Contents of the type byte - code and flags. 
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MACRO 
TYPECODE = 0,0,9,0%, ' full token type code 
YPEBYTE = 0,0,8,0% ! token type byte 
OPTION_BITS = 0.11,6,0%, ! transition option flags 
EFLAG = 0.8,1,0%, ! transition is special code : 
EXTRAFLAG = 0,9,1,0% ' extra type byte present 
LASTFLAG = 0.16,1,0%, ! Last transition in state 
EXTFLAG = 0,11,1,0%, ' type extension present 
TRANF LAG = bo 1g ed OR. ' transition kerget present 
o¢ MASKFLAG = 0,15,1,0%, ' bitmask presen 
6 ADDRFLAG = 0,14,1,0%, ! data address present 
4 ACTFLAG = B13 61 Oke ! action routine present 
$02 PARMF LAG = 0,16,1,0%; ! parameter longword present 
67 GLOBAL REGISTER 
rt CHAR_COUNT = 6; ! character count in string token 
% EXTERNAL LITERAL 
71 LIBS_SYNTAXERR, ' syntax error status 
LIBS" INVTYPE; ! invalid state table 
74 
o ty 
6 } 
77 ! Entry initialization consists of loading the starting state 


; 
f 
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; 378 8 6 ! into the state pointer. Then we proceed into the main : 
, of ? : loop that attempts to match transitions in the state table to ‘ 
; 380 0378 : the current string contents. ; 
; 81 0379 : ° 
‘ Hf 0380 != ° 
: 384 0382 
; HH O38 IF .STATE_LENGTH LSSU TPASK_COUNTO THEN RETURN SS$_INSFARG; ! check minimum Length of state vector : 
> fer 0385 AMBIG_FLAG = F 
; 388 0386 ACT_STATUS = 0; ; 
: | 389 0387 ¢ STATE = .START_STATE; : 
; se 0388 : 
; «4391 0389 WHILE 1 DO : 
; 308 0390 BEGIN : 
; oF 0391 PF 
: 394 B36 : The following horrendous expression attempts to match the token type : 
; 039 : of the current transition to the current string position. The outer : 
3; 3 0394 : IF is a condition which, if true, causes the current transition : 
; wy 0395 : (just evaluated) to be skipped by the code at the end of this loop. The 3 
; 398 $44 : inner IF causes the action routine of the transition to be called if : 
3 Sv 039 ' true (if the transition matches). : 
; 400 0398 : : 
; 401 0399 : 
; 402 0400 SIF . 3 
; 403 0401 4 BEGIN ; 
: 404 bees 4 IF : 
: 405 0403 5 BEGIN ; : 
; 406 0404 5 TYPE = GET_WORD (STATE); ' get basic type code 3 
: 407 0405 5 IF .TYPECERTRAFLAG) ! and extra byte if present 3 
; 408 0406 5 THEN TYPE<16,8> = GET_BYTE (STATE); : 
3; 409 0407 5 3 
: 410 0408 5 LAST_SPACE = 0; : 
3 $11 0409 5 ; 
; 412 0410 5 IF NOT .SPACE_FLAG AND .TYPECTYPECODE] NEQ TPA$_LAMBDA : 
3; 615 0411 5§ THEN 3 
; 414 bei§ 6 BEGIN : 
3 415 041 6 GETSTRING (STRING COUNT, SPACES); : 
: 416 0414 6 LAST_ SPACE = .CHAR COUNT; : 
3 417 0415 6 STRING_COUNT = .STRING COUNT - .CHAR_COUNT; ! update string pointer 3 
; 418 Bei18 6 STRING_POINTER = .STRING_POINTER + .CHAR_COUNT; : 
: 419 17 5 END; : 
; 420 0418 5 : 3 
: 421 b4 36 CHAR_ COUNT = 0; ! init matching string descriptor : 
; re bes TOKER_POINTER = .STRING_POINTER; : 
> 424 bess 5 IF .TYPECTYPECODE] LSSU NULL_MATCH AND .STRING_COUNT EQL 0 : 
: 425 0423 5 THEN 0 ! no match if at end 3 
: 458 0258 ate 
; 428 Be § SELECTONEU .TYPECTYPECODE) OF : 
= 2h : 
: 431 0499 : ! Single characters are matched by token types whose numerical value is : 
: $36 430 5 ! the ASCII code of the character. : 
; 43 bees 2 ! : 
3; 434 432 3 
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v04-000 12-8 08-13b 0g: ¢0: 8 VMSLIB.SRCIJTPARSE.B32;1 . (3) 
CO TO HIGH aeTitt ' single ASCII character 
ea TYPEBYTE] EQL CHSRCHAR (.STRING_POINTER) 
BEGIN 
STATE_CHAR = CHSRCHAR(.STRING_POINTER); 
CHAR_COUNT = 1 
END 
ELSE 0; 


' Keywords are matched by token types whose bits 0-6 contain the keyword 
number. A keyword token may be either (1) an exact match or 

(2) auptey eyes to some number of characters fixed for the cail or 

(3) arbitrarily abbreviated (such that the first match wins) or : 

(4) abbreviated to the minimum which is locally unambiguous. Condition 

(4) is tested for me pt ad by shige ds. the next entry in the keyword table 
and matching it against the token string. The keyword strings for each 
state are padded with a filler to prevent false matches across states. 


$ 6 

; 6 

; 6 

; 6 

; 5 

3 5 

; 5 

: ; 

; 5 

; 5 

: 5 

; 5 

: 5 

; 5 CKEYWORD TO HIGH_KEYWORDJ: ! keyword match 

; 5 IF NOT .AMBIG_FLAG 

: : vot GETSTRING (STRING_COUNT, SYMBOL) 

3 6 BEGIN 

; 6 LOCAL KEY; 

; 6 KEY = .KEYTAB + .KEYTABC.TYPECTYPEBYTEJI; 

; 6 IF CHSEQL (.CHAR_COUNT, .TOKEN_POINTER, 

; 6 .CHAR_COUNT,~.KEY, 0) 

3 7 BEGIN 

: 4 8 IF (CHSRCHAR (.KEY + .CHAR_COUNT) EQL TERMINATOR 
; Ree? 4 ” (.MCOUNT NEQ 0 AND .CHAR_COUNT GEQU .MCOUNT) 
; 0467 7 THEN 1 

; 0468 7 ELSE IF .ABBRFM_FLAG 

; 0469 7 T 

; 0470 7 ELSE IF .ABBREV_FLAG 

; 0471 7 THEN 

; 0472 8 GIN 

; 0473 8 KEY = 1 + CHSFIND CH (65535, .KEY+.CHAR_COUNT, TERMINATOR); 
; 0474 8 IF CH$NEQ (.CHAR_COUNT, .TOKEN_POINTER, 
; 0475 8 .CHAR_COUNT, .KEY,~0) 

3 be 78 ; THEN 1 

3 47 ELSE 

; 0478 9 BEGIN 

; 0479 9 AMBIG_FLAG = 1; 

3 0480 9 

3 0481 9 END 

: 048 3 D 

3 48 ELSE 0 

3 484 7 END 

; 485 6 ELSE 0 

; 48 END 

; tt ELSE 0; 

; 0489 ! ALL other token types are special cases, representing commonly occurring 
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composites and other useful artifacts. 


COTHERWISE): 


COLARBOAIs 


C$E0S): ! 
«STRING _COUNT EQL 0; 


CSANYI: 
BEGI 


EGIN 
STATE _CHAR 
CHAR_COUNT 
END; 


soepesnigs 


5 

5 

5 

5 

5 

5 

6 

6 

6 

: 

5 CSALPHA]: 

6 IF IS_ALPHABETIC ( 
6 THEN TSTATE_CHAR = 
6 CHAR_COUNT = 
: EL 3 

5 C$DIGITI: 

6 IF I 
6 THEN TSTA 
g CHAR_COUNT 
5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

; 

5 

6 


ELSE 0; 


C$STRING): 
GETSTRING (STRING_COU 


C$SYMBOLJ: : 
($B 


CSDECIMAL): : 
IF _GETST 


ING (¢ 
THEN LIBS$CVT_O 


CSHEX): ! 


CSFILESPEC, SUIC, SIDENT, 
BEGIN 


CASE .TYPECTYPEBYTE] FROM L 


: ! single 
S_NUMERIC (CHSRCHAR (.STR 
TE_CHAR = CHSRCHAR ( 


AX=-11 Blis 
VMSLIB.SRC 


$T34 ES eld 
TPARSE .B32; 
er types 

AL TO HIGH_SPECIAL OF 

empty string 

end of input 


any single character 
(.STRING_POINTER); 


Lphanumeric string 


a 
NT, ALPHANUMERIC); 


symbol constituent set string 


GETSTRING (STRING_COUNT, SYMBOL); 


blanks or tabs 


LANK): } 
GETSTRING (STRING_COUNT, SPACES); 


! decimal number 
NG (STRING_COUNT, NUMERIC) 
VT_OTB (.CRAR_COUNT, .TOKEN_POINTER, STATE_NUMBER) 


lL number 


' octa 
STRING_COUNT, NUMERIC) 
TB (.CRAR_COUNT, .TOKEN_POINTER, STATE_NUMBER) 


hexa-decimal number 


NG (STRING COUNT, HEXNUMERIC) 
VT_HTB (.CRAR_COUNT, .TOKEN_POINTER, S1ATE_NUMBER) 


SSUBEXPR]: ! complex expressions 


2 
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Voe~000 or8ee= 138s 13:98:08 = Nelle Sneirarteo3ee4 9° (3) 
; 549 Oee? 6 LOCAL STATUS, SAVECOUNT, SAVEPOINTER; ; 
; 350 548 6 SAVECOUNT = .STRING COUNT; ! save current position : 
$ 2] 0549 8 SAVEPOINTER = .STRING_POINTER; : 
; 226 9330 f STATUS. = (SELECTONEU ;TYPELTYPEBYTE) OF ; 
: 554 059¢ PSFILESPEC): : 
; 22? b2e7 f tsuirjeern eeeret (.STATE_VECTOR); : 
3 285 0555 7 PARSE IDENT (.STATE_VECTOR, 0); ‘ 
; 638 0556 7 CSIDENT): : 
: 399 0557 7 PARSE_IDENT (.STATE_VECTOR, 1); : 
; 280 558 7 CSSUBEXPRI: : 
3 36) 559 7 LIBSTPARSE (.STATE_VECTOR, ; 
; 205 560 7 ~STATE + 2 + .(.STATE)<0,16,1>, : 
3 st B20! f ves) -KEYTAB); ; 
; 565 bae§ 6 IF .STATUS NEQ LIBS_SYNTAXERR ; 
; 366 0564 6 THEN ACT STATUS = .STATUS; : 
; 567 0565 6 TOKEN POINTER = _.SAVEPOINTER; : 
; 568 0566 6 CHAR_COUNT = .STRING_POINTER = .SAVEPOINTER; . 
; 569 0567 6 IF_.STATUS : 
: 3h bees THEN BEGIN 3 
; Se 0570 7 STRING_COUNT = .STRING_ COUNT + .CHAR_COUNT; ; 
3; S73 0571 7 STRING_POINTER = .SAVEPOINTER; ‘ 
3 O76 Bate 7 1 : 
,-- S79 0573 7 END : 
: 378 bare LSE GIN : 
3 6378 0576 7 STRING_COUNT = .SAVECOUNT; ‘ 
3. oT 0577 7 STRING_POINTER = .SAVEPOINTER; ° 
3; 380 0578 7 0 : 
s 381 0579 7 END 
: a5 0381 8 fa: 
; oBe b28¢ 2 CINRANGE]: RETURN LIBS_INVTYPE; ! just for completeness 
; 339 bege 2 COUTRANGE]: RETURN LIBS_INVTYPE; 
3 4 beeo : TES; ! end of special types case 
; 590 0588 § TES ! end of select on .TYPE 
3 S91 0589 5 END ! end of inner condition (token match) 
: 236 0590 2 
£38 ba92 8 i 
; 595 $398 3 ! The type code in this transition matches the current string 
; 596 594 ! which is now described by the gobs} string descriptor. Ca ( 
: 597 595 ' the user's action routine, if it exists, and if it returns true, 
; 598 596 ! gobble the gtr ing and take the transition. Note that we set RO 
3; 599 597 : to 1 going into the call, making it easier for the routine to 
; 600 0598 ' return success. 
; 601 599 ! 
; 60 600 t 
; 60 601 
3: 604 O86 4 THEN 
; 605 0605 5 BEGIN 
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Von e000 1erSeb13Be 94:98:58 AMET Bb fess 3s ve 03048 age 45 
60 NG_COUNT = STRING oy ts COUNT; ! update string pointer 


STRI COUNT - 
STRING POINTER = .STRING POINTER .CHAR_COUNT; 
608 TOKEN_COUNT = .CHAR_COUNT; 
extension if present 


' ski 
IF TESTBITSC (TYPECEXTFLAG]) THEN STATE = .STATE + 2 


IF TESTBITSC (TYPECPARMFLAG])  ! set parameter longword if present 
THEN STATE_PARAM = GET_LONG (STATE); 


BEGIN 
IF TESTBITSC (TYPECACTFLAG)) 
THEN 


BEGIN 
BUILTIN RO, CALLG; 
oy STATUS; 

= 


R ; 
STATUS = CALLG (.STATE_VECTOR, REL_LONG (STATE)); ! call action routine 
IF .STATUS 0 
THEN ACT_STATUS = .STATUS; 
. STATUS 
END 
ELSE 1 
END 


Either there was no action routine, or the action routine has returned 
success; we take the transition. First we get the data address, if present. 
If present, store whatever data is called for: the mask, if supplied, or 
type dependent data if not = either the matching character, the number 
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$3 bes value, or the string descriptor of the matching string. 

63 063 

638 063 THEN 

639 063 BEGIN 

640 063 IF .TYPECADDRFLAG 

641 063 THEN 

64 064 BEGIN 

64 06 LOCAL ADDRESS; 

644 064 ADDRESS = REL_LONG (STATE); 

645 064 IF .TYPECMASKFLAG) 

646 0644 THEN 

647 0645 .ADDRESS = ..ADDRESS OR GET_LONG (STATE) 
648 064 LSE 

649 64 BEGIN 

650 648 IF NOT .TYPECCODEFLAG) 

651 0649 N 

63¢ 0650 (ADDRESS) <0,8> = .STATE_CHAR 

65 651 ELSE 

654 65¢ BEGIN 

655 5 CASE .TYPECTYPEBYTE] FROM LOW_SPECIAL TO HIGH_SPECIAL OF 
656 654 SET 

65 655 

658 696 CSANY, SALPKA soiGit]: 

698 63 (.ADDRESS)<0,8> = .STATE_CHAR; 
661 36 CSDECIMAL, SOCTAL, SHEX, SUIC, SIDENT): 
662 0660 -ADDRESS = .STATE_NUMBER; 
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yon 000 1eree=h 88s 9339808 | Me eObheSTPan de osoc9 ve i 
: 663 661 9 
; 664 066 CINRANGE, OUTRANGE): 
: 665 663 1 BEGIN 
; 666 0664 1 (ADDRESS) = . TOKEN COUNT; 
: 667 0665 10 (.ADDRESS#4) = .TOKEN_POINTER; 
; 668 pees 9 END; 
3; 669 0667 9 
; 670 0668 9 TES; 
; 671 0669 : END; 
3; OF 0670 END; 
; 67 0671 6 END; 
: 674 pore 6 
; 675 675 6! Take the transition. If an explicit target exists, follow it. -1 means 
; 676 0674 6 ! exit with success, -2 means exit with failure. If no explicit target exists, 
; 677 0675 6! skip transitions until we reach the beginning of the next state. 
; 678 0676 6! 
; 679 0677 6 
; 680 0678 6 AMBIG_FLAG = 0; 
; 681 0679 6 ACT_STATUS = 0; 
; 68 0680 6 IF .TYPECTRANFLAG] 
; 68 0681 6 HEN ' take the transition 
3; 684 Beng 6 IF_.(.STATE)<0,16,1> EQL TPAS_EXIT ! TPAS_EXIT means exit 
; 685 0683 6 THEN RETURN 1 
; 686 0684 6 ELSE IF_.(.STATE)<0,16,1> EQL TPAS_FAIL ! TPAS_FAIL means exit 
: 687 0685 6 THEN RETURN LIBS_SYNTAXERR 
; 688 0686 6 
3; 689 0687 7 ELSE STATE = REL_WORD (STATE) 
; 690 0688 6 ELSE ! default to next state 
3; 691 0689 6 UNTIi .TYPECLASTFLAG) DO 3 
; +69 0690 7 BEGIN 
: 69 0691 7 TYPE = GET_WORD (STATE); 
: 694 0692 7 IF .TYPECERTRAFLAGJ 
; 695 069 7 THEN TYPE<16,8> = GET_BYTE (STATE); 
; 696 0694 7 ! pais optional components 
; 697 0695 7 STATE = .STATE + 2 * .LENGTH_TABLEL.TYPECOPTION_BITSJ); 
: 698 0696 6 END; 
3 0697 6 0 
: 700 0698 6 END 
3 fol 0699 6 
3 a4 44 ? : The action routine has rejected the transition. Make like it never matched. 
: 704 0702 6 
: 705 0703 5 ELSE : 
3 oe tae 6 BEGIN ! return characters to string 
; 0 705 6 STRING_COUNT = .STRING COUNT + .CHAR_COUNT; 
; 708 0706 6 STRING-POINTER = .STRING_POINTER - .CHAR_COUNT; - 
3; 709 4s 6 ! skip the rest of the transition 
3s. 710 708 6 1 
s 71 BrP END 
3 at 710 END 
: 71 0711 
s 716 arts 4 ELSE 
; 715 71 4 
3 ay 714 4 END ! end of outer condition 
3 Ti 715 4 
: 718 716 & t+ 
: 719 717 4! 
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If the transition does not match, we execute this code. It skips 


the current transition to 
If this was the last trans 


iti 


up to try the next one in the state. 
on in the state, a syntax error has 


' 

i 

i 

occurred and TPARSE returns the value 0. 
Ss 


E + 
FLAG 


C 


STRI T 
STRING POINTE 
LAST_SPACE = 


om 


END 
END; 


§ * ,LENGTH_TABLEC.TYPECOPTION_BITSI); 


RING_COUNT, SPACES); 
RING LOUNT , SFROOLS | 


UNT; 
Ni EQL~O AND’ .STRING_COUNT NEQ 0 
OUNT = .TOKEN_COUNT +71; 


STATUSCSTS$V_COND_ID] NEG 0 
T_STATUS 
B$~SYNTAXERR) ; 


STRING COUNT + .LAST_SPACE; ! return flushed spaces 
= .STRING_POINTER - .CAST_SPACE; 


! end of outside Loop 

! end of routine TPARSE 
-TITLE LIBSTPARSE 
-IDENT \V04-000\ 
-PSECT _LIBSCODE,NOWRT, 


10 Q0000 P.AAA: .BYTE 1 
¢! 00001 BYTE § 
¢ BRO -BYTE 50 
Ge 
ois 
54 00006 -BYTE 84 
$3 te -BYTE 101 
¢ 008 -BYTE 50 
4 0009 -BYTE iH 
54 OOO0A -BYTE 4 
65 00008 -BYTE 101 
54 Cc -BYTE 84 
F 00D -BYTE 101 
6 OOE -BYTE NS 
$f f -BYTE <-121 
§ 10 BYTE 29 
4 011 -BYTE 6 


i 
R 


SHR, 


PIC,2 


. 
e 
. 
. 
. 
° 
. 
° 
> 
e 
. 
o 
+ 
° 
. 
e 
. 
* 
. 
e 
. 
. 
7 
a 
. 
. 
o 
e 
. 
. 
. 
o 
. 
e 
o 
& 
7 
we 
os 
co 
. 
. 
. 
a 
. 
e 
. 
S 
. 
e 
7 
aa 
. 
° 
- 
° 
© 
o 
. 
e 
‘ 
. 
. 
a 
~ 
o 
. 
a 
. 
& 
~ 
os 
o 
e 
- 
e 
. 
a 
. 
o 
. 
. 
ce 
~ 
. 
° 
« 
° 
. 
. 
° 
. 
7 
. 
. 
. 
a 
. 
o 
. 
. 
. 
. 
7 
e 
. 
. 
. 
2 
. 
. 
. 
. 


1 
LIBSTPARSE 1b-se -1984 02:20: AX-11 Bliss-32 V4.0-74 Page 1 
e000 ae ets ak) S| hk By oe 48 
54 i .BYTE 84 ; : 
$9 1 “BYTE 101 : ; 
4 14 ‘BYTE 84 : ; 
$9 0015 “BYTE 101 : ; 
6 O16 ‘BYTE 118 : | ; 
4 O18 “BYTE 84 : ; 
65 1 “BYTE 101 : | ; 
7 0018 .BYTE 121 : | : 
6 0001C “BYTE 11 : ; 
87 9010 “BYTE =121 : ; 
8 OOO1E "BYTE =104 : ; 
AD OOD01F -BYTE -87 : 
LENGTH_TABLE= P.AAA 
.EXTRN LIBSCVT_DTB, LIBS$CVT_OTB 
EXTRN LIBSCVT_HTB LIB$_SYRTAXERR 
EXTRN LIBS$_INVTYPE 
OFFC 00000 .ENTRY LIBSTPARSE, Save R2,R3,R4,R5,R6,R7,RB,R9,- = 0262 
SE 08 C2 00002 SUBL2 #8, SP : 
50 04 AC DO 00005 MOVL STATE VECTOR, RO + 0383 
08 60 D1 00009 CMPL (RO), # : 
06 1€ 0000 BGEQU § 1$ ; 
50 0114 BF 3¢ 0000 MOVZWL #276, RO ; 
4 0001 RET ; 
06 Ad 01 8A 00014 1$: BICB2 #1, 6(RO) + 0385 
55 04 00018 CLRL. ACT_STATUS > 0386 
58 08 AC bd OO01A MOVL § START_STATE, STATE + 0387 
54 88 3C OOOIE 2$: MOVZWL (STATE)+, TYPE + 0404 
08 54 09 €1 00021 BBC #9, TYPE. 3$ + 0405 
58 D6 00025 INCL STATE + 0406 
54 08 10 FF A&B FO 838 7 INSV -1(STATE), #16, #8, TYPE ; 
04 AE D4 0002D 38: CLRL —LAST_SPAC : 0408 
57 04 AC DO 90030 MOVL § STATE_VECTOR, R7 + 0410 
6E 04 A? 3 00 MOVAB 4(R7)> (SP) ; 
21 00 BE €8 000 BLBS a0 (SPS, 4$ ; 
000001F6 = 8F 54 9 00 ED 0005¢ CMP ZV #0, #9. TYPE, #502 ; 
7 ps 0047 CLRL = = (SP) > 0413 
08 A? 9F 00049 PUSHAB 8(R7) : 
0C000v CF 2 FB O04¢ CALLS #2, GETSTRING ; 
04 AE D 51 MOVL CHAR_COUNT, LAST SPACE : 0414 
08 A é Ag 093 SUBW2 CHAR-COUNT. 8(R7J > 0415 
OC A? 6 CO 00059 ADDL2 CHARTCOUNT, 12(R7) > 0416 
é 4 0005D 4$: CLRL HAR~ COUNT > 0419 
5B 146 A? 9E 00 F MOVAB QR?) R11 ; 
59 Oc A? F 63 MOVAB (R7). R9 > 0420 
68 9 D 90 7 MOVL  (R9), (R11) ; 
000001F6 8F 54 9 Q ED 00068 cMPiV #0, W9, TYPE, #502 ; 0422 
08 i B ; TSTW gin : 
03 7 BNEQ $ : 
oak 3 7A BRW 64$ ; 
OOOOOOFF  &F 54 09 0 ED 0007D 5$: CMPZ7vV #0, #9, TYPE, #255 > 0433 
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LIBSTPARSE 1b-56 -1984 02:20: AX-11 Bliss-32 V4.0-742 Pa 9 L 
ide 000 ene e= Tks PSi38ih8 | HoMs eet kes Tee ave 05508 ee of} V 
DD OO1EC PUSHL  CHAR_COUNT : ; 
000000006 00 a8 FB HE CALLS as, cisscvt_ore : | ; 
03 DD OO1F7 35$: USHL 33 + 0541 ; 
08 A? 9F 001F9 PUSHAB 8(R7) : ; 
O000v CF 9 EB 1FC CALLS #2, EISTRING : ; 
ss 1c AY BF 0504 BuSHAB SBtRS)> $0542 
BF bb 00509 PUSH CHAR COUNT ; 
000000006 00 : FB 020 CALLS #3, CIBSCVT_HTB : ; 
é SAT Sle Hot: BRC gy 478 : ; 
53 08 i 3C 00217 38$: | MOVZWL 8R7), SAVECOUNT + 0548 
52 69 D0 00218 OVL  (R9), SAVEPOINTER + 0549 
EA BF 4 91 00 1 CMPB ses: TYPE, #234 + 0552 
09 12 00 BNEQ  39$ ; 
7 DD 00224 PUSHL 7 + 0553 
0000v CF 01 FB 00226 CALLS #1, PARSE_FILESPEC : 
7 11 00228 BRB 44$ : 
EB BF 54 O91 002¢0 39$ CMPB  —s' TYPE, #235 + 0554 
moe 00933 enee 85) : 0555 
08 11 00235 BRB 41$ : 
EC 8F 54 91 00237 40$ CMPB  —s TYPE, #236 + 0556 
0B 12 00238 BNEQ 42$ : 
01 oD 00230 PUSHL #1 : 0557 
57 DD O023F 41$ PUSHL 7 : 
QOOOV CF 02 FB 00241 CALLS #2, PARSE_IDENT 3 
1€ 11 00246 BRB 44$ : 
F8 BF 54 91 00248 42$:  CMPB TYPE, #248 > 0558 
05 13 O0g4¢ BEQL 43 : ; 
50 01 CE 0024E MNEGL #1, STATUS p é 
11. 11 00251 BRB 44$ : : 
oc x bp 00255 43$ PUSHL KEYTAB : 0561 ; 
51 68 32 00256 CVTWL (STATE), R1 : 0560 F 
02 A148 9F 00259 PUSHAB 2(R1)CSTATE] : ; 
57 DD 0025D PUSHL 7 + 0559 ; 
FD9C CF 03 FB 0025F CALLS #3, LIBSTPARSE : : 
000000006 &F 50 D1 00 64 448 CMPL STATUS, #LIBS$_SYNTAXERR > 0563 : 
03 13 00268 BEQL 45$ : : 
55 50 pO 00260 MOVL § STATUS, ACT_STATUS > 0564 ; 
68 52 00 00270 45$:  MOVL. SAVEPOINTERT (R11) : 0565 : 
56 69 3 C 6 7 SUBL3 SAVEPOINTER. (R9), CHAR_COUNT : 0566 : 
09 E 7 BLBC STATUS, 46 > 056 
08 Az 56 AO 0027A ADDW2 CHAR COUNT, 8(R7) : 0570 
69 52 b0 O27E MOVL SAVEPOINTER, (R9) : 0571 
OA 11 00281 BRB 48$ : 
08 a7 23 80 0 3 46$:  MOVW SAVECOUNT, 8(R7) : 0576 
69 2 p 0 MOVL §SAVEPOINTER, (R9) : 0577 
OODF 31 0 A47$: BRW 64$ : 
08 A? 6A 48$:  SUBW2  CHAR_COUNT, 8(R7) > 0604 
69 eo. & 91 ADDL CHAR_COUNT, (R9) 3 bene 
10 A? 6 D 3 MOVL  CHARTCOUNT, 16(R7) : 0606 
54 0B E 8 BBCC #11, TYPE, 49$ > 0608 
a : C 3¢ ADDL2 é S : 
4 E F 49% BBCC #16, TYPE, 50$ > 0610 : 
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D 2 
LIBSTPARSE 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 21 
VOe2000 14-Sep- 3B ¢: 2: 0 VMSLIB. SRCITPARSE.B32:1 ° (3) 
51 4 C4 MULL2 4, R1 : : 
50 FCB? CF 4 g F 5 EXTZ2V RI LENGTH_TABLE, RO : : 
8 6840 iE A MOVAW (S STATES CRON STATE : ; 
D i BRB $ : $89 : 
50 04 AC D 60 63$:  MOVL. STATE_VECTOR fo > 0704 ; 
08 A 2 A 64 ADDW2 CHAR_COUNT, ) : 0705 F 
C AO 6 ¢ 8 SUBL2  CHARTCOUNT. 20) : 706 ; 
51 54 06 B EF oC 64$:  EXTZV #11,7#6, TYPE, : 072 ; 
1 4 C4 00371 MULL2 #6, : : 
50 FC66—sCC#F 04 1 RE 0374 EXTZV R1, #4, LENGTH Tage. RO 3 ; 
58 6840 3& 00378 MOVAW  (STATESCROJ, STAT : ; 
39 54 QA E1 BBC #10, TYPE, 68$ + 0728 ; 
E D4 CLRL Os =C'S + 0731 ; 
52 04 AC dO 00 MOVL STATE. VECTOR, R2 : : 
08 Ad 9F 00389 PUSH (R2 : : 
0000v CF 02 FB 0038 CALLS #2, GETSTRING : : 
04 DD 00391 PUSHL #4 + 0732 : 
08 Ag 9F 00393 PUSHAB 8(R2) ; 
0000v CF 9 F 00 96 CALLS #2, GETSTRING : 
10 A2 6 DO 00398 MOVL CHAR_COU SUNT. 16(R2) 3 0733 
08 1 00 oF BNEQ 63 + 0734 
08 A2 B5 003A1 TSTW (R2) : 
03 13 OO3A4 BEQL 65$ : 
10 ag D6 003A6 INCL 1ecR R2) + 0735 
00 55 19 0 ED OO3A9 65$ CMP2V #3, #25, ACT_STATUS, #0 : 0737 
04 13 OO3AE 66$ BEQL 67$ : 
50 55 00 00380 MOVL  ACT_STATUS, RO + 0738 
04 0038 RET ; 
50 000000006 8F DO 00384 67$: MOVL  #LIBS_SYNTAXERR, RO : 0737 
04 00388 RET : 0736 
50 04 AC DO OO3BC 68$: MOVL STATE_VECTOR, RO : 0740 
08 AO 04 AE AO 003C0 ADDW2  LAST_SPACE, &(RO) > 074 
OC AO 04 AE C2 003¢3 SUBL2 - LAST SPACE. 12(RO0) > 074 
AE BY OO3CA CLRL LAST_S PACE : 0744 
FC4E 31 003CD BRW 2$ : 0390 
; Routine Size: 976 bytes, Routine Base: _LIBSCODE + 0020 


SAN NSN 
QW 
OVONOULW 
peleleleleleleloa) 


ee a yt yt ae a A tte ttt tg earthy ey troy ay ros 


2 
16-5¢ =1984 02:20:1 AX-11 Bliss-32 V4.0-74 
1 ~3eP7138F 0g:g0:18 VMSLIB. RETTPARSE 304 
ROUTINE GETSTRING (STRING, TYPE) : L_GETSTRING = 
i++ 
FUNCTIONAL DESCRIPTION: 


This routine extracts a string of the indicated type from 
the front of the string being parsed. 


nn 


! CALLING SEQUENCE: 
GETSTRING (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG] = address of string descriptor of source string 
ARG2 = string type code 


i 
' 

' 

' 

i 

i 

i 

| 
i IMPLICIT INPUTS: 
NONE 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
. NONE 

! 
' 
° 


ROUTINE VALUE: 
1 if string is not empty 
0 if string is null 


SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
STRING: REF VECTOR; 


EXTERNAL REGISTER 
CHAR_COUNT = 6; ! character count of found string 


+ 

' 

! To extract the string we sinoly scan through the input string 
! until we hit a character that is not in the class. 

} We count the characters in the global string count. 

le 


CHAR_COUNT = 0; 
WHILE . (STRINGLOJ)<0,16> GTRU .CHAR_COUNT 


WEPPOPOPOPIPOPOPONONONIPIPINIPONINONDY 2 tt 
° 


> PoP PPP eLeLeLeLeP eee eT eee eee eee ee eee e e e e e e  e  e s Bs es BS Bs Bd Bd Be Be ee eee 


i mA om ~~ @ oe mm 
ow Wnoo o So - -— - -_ 
~ ™oo0 oOo «wo o wa o aw 
- ooo o oO o oO o oO 
oa Si id El Ed Be Ded Re eh et eh ed eh eh en er ee oe oe oe oe oe oe os oe ee oe oe ee ee 
a] 
a 
| 
| 
Neo 
wets 
nr 
mm 
om 
* 4 
ww 
>uw | 
« o Oo oOo Oo 
we Vv « a « 
ma t 
_ a . . . 
wr be 4 La a] | 
av = _ - od 
ax Vv 4 4 Zz 
~—Y" => | | 
@m =: ba Oo oO Oo 
@ ~ vw vw uw 
ae - 4 i U 
- < « « « 
iw ew <x < -¢ 
<= 2a =x =x =x 
<> o = . uN VY vw wv 
>u 2 NO ~—O ac ww N wc Kr wor mm CO 
~ — aevuvo-— aa Mm aT WN AT UH UC OOM 
~ « Ce ' 2 ® -2= 2= ® -2= 82 2 ® 
-_ = oar w & [4 < 
~ 2 ” ><aas wa ~~ OO ~ s wae + wae 
conm ~ -_ ~ fo tls 6 te FS mh pee ee Fe RN ge Fe ee 
“7 ** ~~ 
ow — => ~ @ 4 
ver 2 o ~ <= P= | a a) a) a 
kat 2 Se lo ae c a 2.2 @ @ 232 3 2@4 2 2 = 
on vv ae a Vv a ~ O@>a-3row>acacdcro raw we“ mawaw 
a A o . « - “BijAOZTOCOZOZwWEwvwwoks iz et det tet tet oe 
ww a = vY < °o YO MVEVOOLOZlVOVO>-ODEZYCOVOVAEYOvOvODw 
coco <= vw a or =x . z 
oon = . « v _ 
ce YL < ev . > Os 
ss . a = - o Lod 
aa vw wu + ” 

Noe a 0 . wo wo od co ee oo o - 
mm _- z to] c w oh ee) ad oe ed 
i) te] wu aa _ - a o - N ~ w w 

wow - o [4 w 
me w z ey om o -- oO pod Fa pr NS go vation be Tb ae bite ter ter oo | 

o _ - “” =z on lolol =| o) 2 a ot a Sh eh hd eh dS & & & 2 o. A 
=z a uw . a S SOOCOSCCSCCOCOCOOCOOCOOCOSOOSoOOOOOoOoOoOOoOSoOSooO 
_ -— o ~ [. 4 S SOOSCSCSCSCOCOOOCOOCOSOSOSOSOSOSCOSOSOOoOOoOoOSOoOSCOSSo 
o wn” z - ae So SOOCOCOCOCOCOCOCOOCOCOCOOOOOOCOOOOOOOOOO 
2 _ 
” ~ a woe . TFT TOOmtm KON Ce Me MM hewn Oru oeruwnr Oru 
° —_ —= ~ os S BQWRKMARK OOK On Oe OO On Or OOr Oe Or oO 
~ e won ew ~ So 
<= 5 wo a - ae 
a = ew~ 2H < “DLOMO Vu OOVOR Wk ODOMO VU OOMOL OWS 
<x wo w — =x + NLOO VY LOTMA NOTNOR NUT NOUR NOW 
xz ec Za 2uU vw oO oo _— _- 
ve ee 32a =v _— o @ @ @ 
Mac wt 2r =x Ow = 
we Be «KY Aw 2s — Tee w o w wv w 
Vv=xr SY we oe ve o oO Oo o Oo oOo o 
xv 2 xe <e- fh v 
a~ Yv = w J 
” D> DY 239 ad <z_ «= 
w Oc ow Fo +O <= - 
av ww w wor A = 2 
oat OF Ox OQ w YL 
wa a uJ ao > ._ = 
AO wet wt wet ww z -oO nu OC CO oo oe wu COO fe ewe 
minawbsbeadiiegatst 8 wa Wwe Ww ino ww wenn oO we Mm wo wo 
ANAK OR SVR EVAR A Oo 
> Or Or Or Or =O = “ 
be . . 
“Zw 2w 2w 2w 2w > « - wo 
WOuwwMuwYuwmuwy Oo < wr wv 
a ee a Se ae ee ee ee ee 
ee te le at Yv 
2 
<= 
< a fo 4 < =- & 
~ oO oO oO oO av « 
—_ —- ee 
_ a _- 
ow zz ~o 
eo & wi 
FNTFTANSF TAT TAT TOA TMU 
P-DKOK MUM TMOR- DFOKUMTNOP 
COO 6 eR RR RR RM MK NICO 
@0.0000000000 00 60.60 00 00 00.00 60 G0 G0 00 00 G0 G0 cD 
foleleleleleoleleleleleleoleleleleleleleleals]) 
oOo 
wn 
uw 
y 
a 
zo 
AD OK MUMTMNOR-DOOK-UMTMNOR-DOO 
—O KCC OO MO MK MK NINOINININICINICOM 
4 uf 0.0000 60.00 60 00 00 00. G0 G0 00 00 cD 60 00 00 G0 G0 00 aD 
-O 
7 PS ee terete *O ee ste See te*Oeerea*ererea tera rere 


-000 


LIBSTPARSE 
v4 


Oo é™ Ce oO m" Ww ~ 
ee - ™N Nu ON N 
o ao o @w o aw oO 
o Oo o °o o Oo Oo 
Me el Me Me ed i ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe oe ee oe. ee, oe oe oe oo eo a a | ere 
oOo Oo 
< a 
_ . 
te] Co] 
— — 
= z 
3 8 
vw vw 
a t 
i+ 4 [4 
be 4 qt = 
N wo NN Ke CO K— Moe -— /M w 
~ oOo uwmoonre-rnvdsbeooNnnNn mM ws Ww won Oo o 
on MnO OO Kr KE NNN NN NY NS TORO OO UU vw 
= 2 ® | ans = =& 2=® 2=® 2=® 2=® 2® 2&® 2& 2& 2&= ® =~ & at a” 
As Pwa~ + aA s+ A FA A OH FH FH HF HF F~ HF WHE Gad 
DWDOEHO OOM TOBHOOGCORKHO OOOO VOOMODOOMODOOMoOWOwr £3-=s— ZrROTtDOO 
Sek ® ed * el * ed Ds aos ds oes ds ds es ds ds ds ed ed es ee es ee ee a ee 
a =) 
- mw 2) ee Se le ne SS ee ew en nS eS eS @ 
w0.0.1w0.5> 0.190. WwW MO WO MO WO MO WO MO WO MO wWoOw>r>od COO weoBaereouUr- 
tet tet tet t tut tut tet tut tut tet jut tet tet tet tut tet tet + tut tet t+ Perey tt 
DBL OLOOE COV OMVOVCMVMVOMVMDVOMVOMVOMVOMvOvOslvOv®—- Over O-—-ae 
hd ee oe a a oF A 2 > “A Sad 
ra A he oO —™m a] ww oOo ~ co 
oO ~ t. «] o - -— - -— -- - 
Oc wOo yO DOO~w7OtVvOTWw YVWNTO ft WOTO LVOVOD DOWN. DBOuws oot 
wn We PPE PTT PS ett PP EET TTT eet atetey-7-9-9-9-3 


Mr ee Mr i i OM OO i Oe OM i OM i OR VEE MK NOK SIMON 
PORK O KOPF OOK OK ORK Or On OK Orn One On Or On— Or OOnr- Om AMAA ao 


MOOOR-MODOOO-OWOMOOO0G? OWS BOVWOO- OCWOMAUNOOOONOVDOOWNO 
NOM ONT TFTMOWMAWNOWN TF NOM MWNOWMNAWUNOWNANOWM HK NH TNOMOMPMINNowm 
= - — 


tA 


04 8 
04 B 


-LIBSCODE + 03F0 


a 
" 
o 
foe) 
i) 
c 
- 
rw) 
= 
° 
e 


219 bytes, 


; Routine Size: 


LIBSTPARSE 
voe=000 


. 
°o 
x 
. 
~w 
aw 
eE~ 
o2a 
ve 
2 
7 
ne 
wow 
ew 
ae 
a 
w 
an ere 
c«# *. ted Vee 
—-~v pe 4 w oo 
“Oo VY vo 
a_ Oo c ss 
o ot - oo 
co @ a ~~ 
c @ 3 
o- A °o ss 
cw & oo s 8 See 
-3 “_ meas 
z w ao bli oooo 
Oo. . « c ow rs 
—w co - oo 
—y a) - zz ++ eacaca 
oa a °o oo oooo 
-< ae a — =a eed od 
a < — ee VVvLUUYU 
ae oa o oo [veyverrerre) 
= ae " - zz >>>> 
xo @ ww 
oa ~ ~ aatedll © 0 
-S yn wv 2 Le 
“oO oe oO >» at 
. _ a PAA w 
co ae) @ oa <<a _ 
—! wv t « aa. . w er 
ee " cow “ Lael t.<] ad = 
pe Bo) a) am = | ours 
oc oO << uu " — 
or a <= c “ae 
 - za °o —- | 
own = a - we <> 
coe v ed " ws —- ww 
—-—vaQ o +a ¢ oO <q>uw~ 
non a NS a a < —w ft 
cw 2 OD-+ += ad w =< Awe 
@ axz@mme = a Oo {ea 
= ed w 4 a << he vVuwWw 
2°66 ” 1 = ”" ——O0 
® 3s « w = 4 zu ' 23> 
avv < ” v Le | =) AHA 
~o- a a ° aa < AP of Lr 
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SOREN SF SF ST ST ST ST STAT TOMA 
0.000000 00.00 00. G0.00 60 60 60.60 00 G0 00 G0 00 G0 60 G0 a0 60 G0 G0 G0 G0 G0 a0 a0 G0 cD 
pee allel elelelelolelelelelelelelelelelelelelelelelelelolololo) 
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3 $ 6 r¢' } ROUTINE PARSE_FILESPEC (TPARSE_BLOCK) = 

: e9 °6 1 !¢ 

; 868 os.°% 3 

; b76 Bes ! FUNCTIONAL DESCRIPTION: 

: 871 0866 1! This routine parses a file specifier string, using the SFILESCAN 
; He 0867 : service. 2 , . . 

3 87 83 es 

: gre 58 1 ! CALLING SEQUENCE: 

3 Ne th : PARSE_FILESPEC (TPARSE_BLOCK) 

; £78 1h 1 ! INPUT PARAMETERS: 

3 578 1h ! TPARSE_BLOCK: address of TPARSE control block 

; 880 0875 1°! IMPLICIT INPUTS: 

; 881 ba8 1! NONE 

; eas 0877 1! 

; 88 0878 1 ! OUTPUT PARAMETERS: 

; 884 0879 1! NONE 

; 885 0880 1! 

: B38 0881 1 ! IMPLICIT OUTPUTS: 

; 887 tt 1! NONE 

; 888 0883 1! 

; 889 0884 1 ! ROUTINE VALUE: 

; 890 0885 1! status of parse operation 

; 891 0886 1! 

; £36 0887 1 ! SIDE EFFECTS: 

; 0888 1! string descriptors in TPARSE block modified if successful 
> 894 0889 1! 

; 895 0890 1 !-- 

; 896 0891 1 

; 897 089 BEGIN 

; 898 089 

; 899 0894 MAP 

; 44 +344 TPARSE_BLOCK : REF SBBLOCK; ! TPARSE control block arg 
3 o58 897 LOCAL 

3 Sor a4 FSCAN_LIST : SBBLOCK (12); ! descriptor List for SFILESCAN 
; 905 0900 

: 906 0901 ! Set up the filescan List arguments and call it. 

: 907 o4i4 : 

; 908 90 

3 909 904 2 FSCAN_LISTCATRS$W_TYPE] = FSCNS_FILESPEC; 

; 910 905 FSCAN_LIST+¢8 = 0; 

3: (911 P 2908 IF NOT SFILESCAN (SRCSTR = TPARSE BLOCKCTPASL_STRINGCNT), 

; 44 90 VALUELST = FSCAR_LIST) 

: at 208 THEN RETURN 0; 

; 31 144 If successful, update the string pointers in the user's block. 
: 91 91 

; 918 318 TPARSE_BLOCKCTPASL_STRINGCNT) = .TPARSE PLOEKE TEASE STRINGCNT) 

; 919 914 - .FSCAN_CISTCATRSW SIZE); 

: 3st 915 TPARSE_BLOCKCLTPASL_STRINGPTR] = .TPARSE Pe Opeh TEASE STRINGPTR 

; 921 16 + ,FSCAN_CISTCATRSW_STZE); 


2 
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; ¥ § 917 
3; ¢ 318 1 
; 924 91 END; ! End of routine PARSE_FILESPEC 


LIBS TP AASE 
v04-000 


~-EXTRN SYSSFILESCAN 
0004 00000 PARSE_FILESPEC: 
WORD 


. WO Save R2 
SE oc ¢3 9900 SUBL2 RID. SP 
02. AE i 6 00 MOVW = #1, FSCAN_LIST+#2 
08 AE 04 CLRL = FSCAN_LIST+ 
7E 04 0000C CLRL —s_ = (SP) 
4 AE OF O00E PUSHAB FSCAN_LIST 
52 4 AC 00 0001 MOVL TPARSE_BLOCK, R2 
08 Ad 9F 9013 PUSHAB 8(R2) 
000000006 00 9 FB 901 CALLS #3, SYSSFILESCAN 
0 0 .€ 1F BLB RO, 1$ 
50 04 00022 CLRL = RO 
94 90 4 RET 
50 66 ¢ 0025 1$ MOVZWL FSCAN LIST, RO 
08 Ag ¢ 0028 SUBL2 RO, 8TR2) 
5 6— 3C 0002C MOVZWL FSCAN_LIST, RO 
Oc A2 50 CO 0002F ADDL2 RO, 12(R2) 
50 01 DO 00033 MOVL #1, RO 
04 00036 RET 
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ROUTINE VALUE: 
status of parse operation 


SIDE EFFECTS: 
string descriptors in TPARSE block modified if successful 


4 9 ROUTINE PARSE_IDENT (TPARSE_BLOCK, GENERAL) = 
9 g 1++ 
9 : 
03 2 FUNCTIONAL DESCRIPTION: 
9 § i This routine parses an identifier string, Leaving the binary value 
5 in the TPASL_NUMBER field of the tparse block. 
909 1 | CALLING SEQUENCE: 
2 9 PARSE_IDENT (TPARSE_BLOCK, GENERAL) 
03 ‘ i {NPUT PARAMETERS: 
9 : TPARSE BLOCK: address of ag control block 
0934 { GENERALS Q to parse UIC o 
89 ? 1 to parse seneral” identifier 
0937 1 | IMPLICIT INPUTS: 
0938 ! NONE 
0939 : 
0940 ' OUTPUT PARAMETERS: 
0941 ! NONE 
094 : 
094 ! IMPLICIT OUTPUTS: 
0944 NONE 
i 
i 
i 
i 
' 
i 


BEGIN 
P 
TPARSE_BLOCK : REF SBBLOCK; ! TPARSE control block arg 
LOCAL 
STATUS, bik eral status value 
LOCAL_BLOCK : SBBLOCK CTPASK. rt NGTHO+LOCAL STORAGE); 
36 T local TPARSE control block 
964 ! Set up the local TPARSE control block by copying the user's. 
965 Then do the parse. 


CHSMOVE (TPASK_LENGTHO, .TPARSE BLOCK LOCAL_BLOCK); 
LOCAL _BLOCKCTPASL_COUNT) = _TPASR_¢ UNTO; 
sratugee TPASVBLANKS) = 1; 


IF GENERA 
THEN STPARSE (LOCAL_BLOCK, Lie : 


LIB D 
LIBSTPARSE (LOCAL-BLOCK, LIBSSUIC_ 


fo 
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$1 
$U 


COOQoQoooooooooo 
re PANNANANAAS A 
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awn — —OOONOULSWN—O 
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983 


Sete eee Ge Ge Se Se Se Se Geese 
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; Routine Size: 


977 
378 
97 
980 IF_ .STATUS 
981 THEN 
9 § BEGIN 
9 TPARSE _BLOCK({TPASL_STRI 
88 4 TPARSE BLOCK 
985 TPARSE BLOCK 
p386 END; 
098 
Boge . STATUS 
9 END; 
5E 
56 
6E 66 
6E 
04 AE 
OA 
FAEC CF 
OA 
08 A6 
1C = AG 


64 bytes, 


If successful, 


Routine Base: 


NGCN 4 = OCK 
TPASL_STRINGPTR] = “LOCAL arco ck TPASL— 
TPASL_NUMBER) = .L TP 


iSosto-t9ge 09:90:48 


update the string pointers in the user's block. 


»LOCAL_BL TPASL_ 


wu nn 


OCAL_BLOCKCTPASL_NU 


VMSLIB.SRC 


! End of routine PARSE_IDENT 


007C 00000 sigents sana 


DO 0000 MO 
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FPMVNOFPOOOOMOPOConvrn 
Nm 
wn 
wv 
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MMNOWN "Com MOH —OOLOMm 
o9 SIM" OOO—OOMorr 
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COoooooooooeooooo 
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wn 
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Ww 
bad 
zD 


_LIBSCODE + 0502 


seye R2,R3,R4,R5,R6 
SP 
TPAASE BLOCK 
(R6), LOCAL _BLOCK 
aa “LOCA L“ BLOCK 
#1. LOCAL “BLOCK+4 


SIDENT _KEY_ TABLE 
IDENT~STATE_TABLE 


$ 
$$ 
$SUIC_KEY_ TABLE 
$$UIC nepATe _TABLE 
AL_B 

CYBSTPARSE 
ATUS $ 


LOCAL_BLOCK+8, 8(R6 
LOCAL-BLOCK+28, 28( 6) 


Ax-11 Oi ieg=3e V4.0-7 
TPARSE. 335; 


Pe Se Se Se Be Se Be Se Be Be Se Se Se Se Se Be Be Be 


M 2 
voe=000" 1er$ep-1986 15:55:08 EmsL Ie. SRE STPARSE 832; 


: 33r B33) tt Acti tines ¢ UIC'S and identifi 

° ; ction routines to parse “4 an en ers. 
: 999 0396 ii 

? 1600 998 

We coer oases 

° ° ememoer openin racket. 

: 1008 996 1 | sStbtitiin: 

: 1004 0997] ROUTINE SET_BRACKET = 

: 1008 998 2 BEGIN 

: 1006 0999 5 TPARSE_ARGS; 

: 1007 1000 

; 1008 190) TPARSE_BLOCKCTEMP_CHAR] = . TPARSE_BLOCKCTPA$B_CHAR]; 
: 1009 190 8 1 

? 1010 1008 1 END: 


0000 00000 SET_BRACKET: 
WOR 


‘ D Save thin 
28 AC 18 AC 90 00002 HOVE, SAC TPARSE BLOCK), 40(TPARSE BLOCK) 
50 01 D0 00007 MOVL #1, RO 
04 OO000A RET 


; Routine Size: 11 bytes, Routine Base: _LIBSCODE + 0542 


; 1011 1004 1 
; ols 1005 1! 
3 101 1006 1! Check closing bracket against opening bracket. 
: 1014 1007 1: 
3; 1015 1008 1 ROUTINE CHECK BRACKET = 
; 1016 1009 BEGIN 
3; 1017 1010 TPARSE_ARGS; 
; 1018 1011 
: 1019 ile SASSUME (‘<'=">', EQL, ‘C'='"J") 
; 1st Ha ; . TPARSE _BLOCKCTPASS_ CHARI EQL TPARSE -BLOCKCTEMP_CHAR] + ('J'='C') 
: 1022 1015 1 END; 
0000 00000 CHECK_BRACKET: 
«WORD Save nothi 3 
51 28 AC 9A 00002 rte 4OC(TPA OCK), R1 
51 9¢ CO 00006 #2, RI 
D4 09 CLRL R 
51 18 AC 08 0 £B 0B CMPZV) «#0, #8, 24(TPARSE_BLOCK), R1 
3 11 BNEQ 1$ 
yi 8 1 INCL RO 
4 00015 1$: 


; Routine Size: 22 bytes, Routine Base: _LIBSCODE + 054D 


1015 


Ze Owosz<— iz 


B 
voe-000" 1e-Sep-198¢ 1:85:08 EYMsL Le: SnedTPaRse 03571 


1023 1918 1 

1024 131 1! 

+ 5 1918 ! Check and save group number. 

10 § 10 1 ROUTINE STORE_GROUP = 

1028 1021 BEGIN 

16 2 8 § TPARSE_ARGS; 

1031 1024 (TPARSE “Bt ORE TEAS NUMBER])<16,16> = ,TPARSE_BLOCKCTPASL NUMBER]; 
10 ‘ 1025 2 .TPARSE-BLOCKCTPASC_NUMBER] [Sel 16383 

103 1856 

1034 10 END; 


0000 00000 STORE_GROUP: 
WORD 


Save ARSE BE 
26 =AC 1¢ AC 80 0000 MOVW 28(TPARSE_BLOCK), 38(TPARSE_BLOCK) 
50 04 0000 CLRL RO 
OOOOSF FF 8F 1€ AC 01 00009 CMPL 28(TPARSE_BLOCK), #16383 
9¢ 1E 00011 BGEQU 1$ 
D6 00013 INCL RO 
04 00015 1$: ET 


Routine Size: 22 bytes, Routine Base: _LIBSCODE + 0563 


1035 1028 1 

1036 1962 1! 

1037 1030 1 ! Store wild card group number. 
1038 1031 1! 

1039 1936 1 ROUTINE WILD_GROUP = 

1040 103 BEGIN 

1041 1034 2 TPARSE_ARGS; 

1086 1035 

104 1036 (TPARSE_BLOCKCTEMP_NUMBER])<16,16> = 16383; 
1044 1037 

1045 1038 1 

1046 1039 1 END; 


0000 00000 WILD_GROUP: 
WORD Save n 
3FFF or 09 $98 MOV #16383 
MOVL #1, RO 
0008 RET 
Routine Size: 12 bytes, Routine Base: _LIBSCODE + 0579 


othing 
26 4 - 38(TPARSE_BLOCK) 


on 


1047 1040 1 


row 


3 
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1 RT 1G faces wed co onion 
. n . 
1986 1948 1} eck and save member number 
1051 1044 1 ROUTINE STORE_MEMBER = 
1326 1045 BEGIN 
105 108 TPARSE_ARGS; 
gee 1908 IF .TPARSE BLOCKCTPASL_NUMBER] GEQU 65535 
1056 1049 2 THEN RETURN 0; 5 
Hed 4 Wet (TPARSE_BLOCKETPASL_NUMBER])<16, 16> = .(TPARSE_BLOCKCTEMP_NUMBER])<16,16>; 
1059 1026 1 
1060 105 END; 


0000 00000 ieee tester 


» WORD Save nothin 
OOOOF FFF 8F 1¢ AC D1 00002 CMPL 28(TPARSE_BLOCK), #65535 

03 1F OOOOA BLSSU 1$ 

50 D4 0000C CLRL RO 
04 QOO0E RET 

1E AC 26 §=6—AC BO OOOOF 1$ MOVW 38(TPARSE_BLOCK), 30(TPARSE_BLOCK) 
50 01 DO 00014 MOVL #1, RO 

04 00017 RET 


Routine Size: 24 bytes, Routine Base: _LIBSCODE + 0585 


1061 1054 1 

1006 1055 1! 

106 1056 1 ! Store wild card member number. 

1064 | ae &: 

1065 1058 1 ROUTINE WILD_MEMBER = 

1066 1059 N 

H's 4 Ine? TPARSE_ARGS; 

1069 1096 (TPARSE_BLOCKCTPASL_NUMBER])<16,16> = .(TPARSE_BLOCKCTEMP_NUMBER])<16,16>; 
1070 106 (TPARSE~BLOCKLTPASL—~NUMBER])<0,16> = 65535; 
1071 1064 

1076 1065 1 

107 1066 1 END; 


0000 00000 WILD_MEMBER: 
WORD 


, save eth hg 
1E AC 26 AC BO 0000 MOV 8(TPARSE BLOCK), 30(TPARSE_BLOCK) 
1C AC 01 AE 000 MNEGW #1, 28 (TPARSE BLOCK) 
50 01 008 MOVL #1, R 
4 0000E RET 


Routine Size: 15 bytes, Routine Base: _LIBSCODE + 059D 


Page 


Sete Se Se Fe Fe Se Be 
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3 
LABSTPARSE 1$-sep-1964 08:20:38 YAKcIT BLisecs2_yé.02749 Page 35 


3 1074 1067 1 

3; 1075 1068 1! 

3; 1076 1992 1 ! Store full wild card identifier. 
3 1077 18 01! 

3; 1078 1071 1 ROUTINE ALL_WILD = 

3; 1079 19%6 EGIN 

; 1080 107. TPARSE_ARGS; 

3: 1081 1074 

: Ione 1075 TPARSE_BLOCKCTPASL_NUMBER] = UICSK_MATCH_ALL; 
3; 108 1976 

3: 1084 107 1 

3 1085 1078 1 END; 


0000 00000 ALL_WILD: 


«WORD Save nothin : 1071 
1c =A 01 CE 00002 MNEGL #1, 28( TPAR E_BLOCK) : 1075 
50 01 00 00006 MOVL #1, RO : 1078 
04 00009 RET 3 
; Routine Size: 10 bytes, Routine Base: _LIBSCODE + OSAC 
3; 1086 1079 1 
3: 1087 1080 1! 
; 1088 1081 1 ! Convert single identifier name to numeric value. 
: 1089 1ORe 1 
3; 1090 1083 1 ROUTINE SINGLE NAME = 
; 1091 1084 § BEGIN 
3 103% 1085 TPARSE_ARGS; 
; 109 1086 
3: 1094 P 1087 SASCTOID (NAME = TPARSE_BLOCKCTPAS$L_TOKENCNTJ, 
3 1095 1088 ID = TPARSE_BCOCKCTPASL_NOMBERJ) 
3; 1096 1089 
3; 1097 1090 1 END; 
-EXTRN SYS$ASCTOID 
0000 00000 SINGLE_NAME: 
«WORD Save nothing ; 1083 
7E D4 O0e CLRL = (SP) : 1088 
1¢ «AC OOF 04 PUSHAB i (TPARSE_BLOCK) ; 
10 Ag oF 7 PUSHAB (TPARSE BLOCK) $ 
000000006 00 05 FB A CALLS , SYSSASCTOID 3 
04 00011 RET ; 1090 


; Routine Size: 18 bytes, Routine Base: _LIBSCODE + 0586 


; 1098 1091 1 


» 3 
vou=000" 1eSep-1986 19:85:08 EYMSLIB-SRESTPARSE 83211 fret 


+ 1988 1att 1 t Senet ont 

3 4 onvert and save group name. 

: 1101 199g} i fore: 

: 11 é 1095 1 ROUTINE GROUP_NAME = 

; 110 1399 BEGIN 

> 1104 109 TPARSE_ARGS; 

> 1105 1098 

> 1106 1099 2 LOCAL 

; 1107 1100 STATUS; 

> 1108 1101 

: 1109 P 1198 STATUS = $ASCTOID (NAME = TPARSE BLOCKCTPASL TOKENCNT, 
> 1110 110 ID = TPARSE BCOCKCTEMP_NUMBER); 
21111 1104 2 IF NOT .STATUS THEN RETURN .STATUS; 

: 1118 1105 2 .(TPARSE_BLOCKCTEMP_NUMBER])<16,16> LEQU 16383 AND 
: W113 1196 > (CTPARSEBLOCKLTEMP-NUMBER])<00,16> EQLU 65535 

> 1115 1108 1 END; 


0004 00000 a 


ORD Save R2 ; 1095 
7E 04 00002 CLRL -(SP) 3; 1103 
24 AC YF 00004 PUSHAB 36(TPARSE_BLOCK) § 
R 10 AC 9F 00007 PUSHAB 16(TPARSE BLOCK) : 
00000000G 00 03 FB QOOOA CALLS #3, SYSS$ASCTOID 5 
1E 50 €9 00011 BLBC STATUS, 3$ 3 1104 
51 D4 00014 CLRL R1 st ; 1105 
3FFF OB 26 «=AC Bi 00016 CMPW 38(TPARSE_BLOCK), #16583 3 
02 1A OOOIC BGTRU 1$ 3 
51 D6 OOOTE INCL R1 3 
50 D4 00020 1$: CLRL RO : 1106 
FFFF §68F 24 AC Bi 00022 CMPW 36(TPARSE_BLOCK), #65535 3 
02 12 00028 BNEQ es 3 
50 D6 O002A INCL RO 5 
52 51 D2 0002C 2$: MCOM Ri, R2 3 
50 52. CA 0002F BICL R2, RO 3 
04 00052 3$: RET ; 1108 


Routine Size: 51 bytes, Routine Base: _LIBSCODE + 05C8 


1 

1 

\ Convert and check member name. 

1 ROUTINE MEMBER_NAME = 

BEGIN 

TPARSE_ARGS; 

LOCAL 
STATUS; 


STATUS = SASCTOID (NAME 


Be te Se Se Ge Se Ge Ge Se Se Se See 
a 
horonrornry 

CONAOUE WO OONO 
et a a se 
tt 
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= TPARSE BLOF EC TPASL TOKENCNT], 
TPARSE_BCOCKCTPASL_NOMBER]); 
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: 1129 11 5 IF NOT .STATUS THEN RETURN STATUS: 

: 1130 11 » CTPARSE BLOCK ETEMP UMBERI) <16 6> EQL 
: 1 1 1 4 . (TPARSE~BLOCKLTPASC_NUMBERJ)<16, 16> 
11 i 1126 1 END; 


. Save nothing : 1113 
7E D4 00002 CLRL =(SP) ; 1121 
1C¢ AC 9F 00004 PUSHAB 28(TPARSE_BLOCK) ; 
10 AC 9F 00007 PUSHAB TOCTPARSE BLOCK) : 
000000006 00 03 FB OOOOA CALLS #3, SYSS$ASCTOID ; 
0B 50 €9 00011 BLBC STATUS, 1$ 3: 1122 
50 D4 00014 CLRL RO : 1124 
1E AC 26 «€6—AC OC#iI Bote CMPW 38(TPARSE_BLOCK), 30(TPARSE_BLOCK) 4 
02 12 00018 BNEQ 1$ : 
50 Dé 00010 INCL RO $ 
04 OOO1F 1$ RET 3: 1126 


; Routine Size: 32 bytes, Routine Base: _LIBSCODE + OSFB 
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7h fel bl sep-19 & 9: ¢2: ig AX=-11 Oi legs 3e V4.0-74 


if: -Sep-1984 VMSLIB.SRCJTPARSE .B32; 


; 1198 1184 1 ); 

: 119 1185 1 

> 1194 1 é 1 SSTATE (, 

: 1195 P11 1 (£}", TPAS_EXIT, CHECK_BRACKET), 
: 1196 11 8 1 (">") TPASTEXIT. CHECK-BRACKET) 
: 119 11 1 ); 

: i198 p 119) 1 SSTATE (GROUP_RERBER 

> 1200 P 1198 1 (es ,QILD_ GROUP 

> 1201 P1193 1 (TP Pag: “OCTAC. STORE GROUP), 

: 1 06 P1194 1 (TPAS-SYMBOL , ,GROUP_NAME) 

3; 120 1195 1 vs 

> 1204 1196 1 

: 1205 P1197 1 SSTATE (, 

> 1206 P1198 1 (f,*) 

: 1207 1199 1 F 

> 1208 1200 1 

: 1209 P1201 1 SSTATE (, 

> 1210 P 1 0¢ 1 ('e" TPAS EXIT, WILD MEMBER) 

> 1211 P 120 1 (TPA$_OCTAL, TPAS_EXIT, STORE MEMBER), 
; 121 P1204 1 (TPAS “SYMBOL, TPAS_EXIT,MEMBER_NAME) 
: 121 1205 1 3 

: 1214 1206 1 

> 1215 1207 1 END 

: 1216 1208 0 ELUDOM 


.PSECT _LIBSPARSE_STATE,NOWRT, SHR, PIC,1 
00000 LIBSSUIC_STATE TABLE: : 
8058 00000 ;TPASTYPE 


U.e: «WORD +-32677 
00000000* 00002 ; TPASACTION 
U.33 7 <<SET_BRACKET-U.3>-4> 
803C 00006 ; TPASTYPE 
U.4: -32708 


. e ~ WOR 
00000000* 00008 ; Ne Pama ® 
1425 QO00C ; TPASTYPE 


“Ss: 
u“ 


<<SET_BRACKET=U.5>=4> 


U.6: WORD 5157 
0000* OOO0E ; TPASTARGET 
0.8: -WORD <<U.7-U.8>-2> 
802A 00010 ; TPASTYPE 
0.9: WORD -32726 
00000000* 00012 ; TPASACTION 
0.10: LONG <<WILD_GROUP-U.10>-4> 


85F4 00016 ; TPASTYPE 
U.11: WORD =31244 
00000000 00018 ; TPASACTION 
U.12:  _,LONG <<STORE_GROUP-U.12>-4> 
042C 0001C TPASTYPE 
U.15:  _,WORD 1068 
802A OO01E P TPASTYPE 
U.14: WORD -32726 
00000000* 00020 ; TPASACTION 


LIBSTPARSE 
v0e=000 


85F4 
00000000* 
905D 
00000000* 
FFFF 
943€ 
00000000* 
FFFF 


0458 
15*5 
FFFF 


902A 
00000000* 
FFFF 
91F1 
00000000* 
FFFF 
8058 
00000000* 
803C 
00000000* 
1425 
0000+ 
09F8 
0000+ 
802A 


00024 
00026 
0002A 
0002C 
00030 
00032 
00034 
00038 
0003A 
Q003A 
0003C 
0003€ 
00040 
00040 
00042 
00046 
00048 
0004A 
0004E 
00050 
00052 
00056 
00058 
0005C 
0005€ 
00060 
00062 
00064 


53 
=3e0] AX-11 Bliss-32 V4.0-74 
-Sep-1 1984 9 42: of VMSLIB. SRCITPARSE B32; 
U. 15: _,LONG <<WILD_MEMBER-U.15>-4> 
; TPASTYPE 
U.16: _,WORD =31244 
; TPASACTION 
U.17: LONG <<STORE_MEMBER-U.17>-4> 
; TPASTYP 
U.18: «WORD 28579 
; TPASACTION 
U.19:  _.LONG <<CHECK_BRACKET-U.19>-4> 
; TPASTARGET 
U.20: -wWORD -=1 
; TPASTYPE 
U.21: _,WORD -27586 
; TPASACTION 
U.22: «LONG <<CHECK_BRACKET-U.22>-4> 
; TPASTARGET 
U.23: .WORD -=1 
;HEX. FORMAT 
U LKB 0 
; TPASTYPE 
0.24: «WORD 1112 
; TPASTYPE 
0.25: WORD 5621 
;TBASTARGET - 
LIBSSIDENT SEmie  SALE 
; TPASTYPE 
U.28: WORD -28630 
; TPASACTION 
U.29: LONG  <<ALL_WILD-U.29>-4> 
Y TPASTARGET 
0.30: . -1 
; TPASTYPE 
U.31: WORD -28175 
; TPASACTION 
U.32:  _.LONG <<SINGLE_NAME-U.32>-4> 
; TPASTARGET 
0.33: «WORD =1 
; TPASTYPE 
0.34: WORD -32677 
; TPASACTION 
0.35: NG <<SET_BRACKET-U.35>-4> 
TBASTYPE | 
0. D 32708 
 TPASACTION 
0.37: NG <<SET_BRACKET-U.37>-4> 
; TPASTYPE 
G.38: .WORD 5157 
; TPASTARGET 
U.39: RD <<U.7-U.39>-2> 
= iPASTYPE. 
U.40: D 2552 
:iPASSUBEXP 
U.42: RD <<U.41-U.42>-2> 
C iPASTYPE™ 
U.45: WORD -32726 


row it 


s 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$3 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
3 


LIBSTPARSE 
vou=000 


00000000* 
85F1 
00000000* 
9050 
00000000* 
FFFF 
943E 
00000000* 
FFFF 


802A 
00000000* 
81F4 
00000000* 
85F1 
00000000* 
042C 
902A 
00000000* 
FFFF 
91F4 
00000000* 
FFFF 
95F1 
00000000* 
FFFF 


1b-sep-1964 09:20:18 YaN=t1 OL in4=32_ 4.0274 


00066 ; TPASACTION 
Q006A ; TPASTYPE 
0006C ; STPASACTION. 
00070 
00072 
00076 
00078 
Q007A 
0007E 
00080 ; 
00080 ; 
00082 
00086 
00088 
0008C 
0008E 
00092 
00094 
00096 
0009A 
0009C 
0009€ 
QO0A2 ; 


Cee Cee Cee Cee Cee Cee c: c-- 
—:. —des —e —ts 
> ~~ 
>o uw = 
Pos Aes Me Me 
“_~ =-+ >} — 
and > oo =< 
7 Ds 
ffie Gye wae fie 
mre-o 
=3o2 


ce. 
Sed 
par 
Pd 
@D 
a 
cm 
=@ 


D 
uP “MEMBER 
-BLKB 
$tyPE 
WORD 
; TPASACTION 
:teastyPé 
; TPASACTION 
LON 
;TPASTYPE 
YS remeber 
; TRASTYPE 
WORD 
: TPASTYPE . 
: TPASACTION 
: TPASTARGET 
: TPASTYPE 
WORD 
: TPASACTION 
s TASTARGET 
OOOAS ; TPASTYPE 
66: WORD 
000A6 ; TPASACTION 


- LONG 
QOOAA  TPASTARGET 
0.68:  .WORD 


cee 


—:* Gye —te 
UPD ON UR OP OL Or 


c: c: c-: ce: c: c-: cs: ce: c-: cs: c- 
o o o o w w w w 
oa Spee eee SB 
Pd 
o 
“ 
_— 
So 
2 


+ Se- Ses Se See 
AVRVRAVO 


-PSECT 


<<ALL_WILD-U.44>-4> 
-31247 

<<S INGLE _NAME-U.46>-4> 
-28579 
<<CHECK_BRACKET=U.48>-4> 
-1 

-27586 
<<CHECK_BRACKET=U.51>=4> 
-1 

0 

-32726 
<<WILD_GROUP=U.54>=-4> 
-32268 
<<STORE_GROUP=-U.56>-4> 
-31247 
<<GROUP_NAME-U.58>=4> 
1068 

28630 
<<WILD_MEMBER-U.61>-4> 
1 

-28172 
<<STORE_MEMBER-U.64>-4> 
-1 

-27151 
<<MEMBER_NAME-U.67>=-4> 
-1 
-LIBSPARSE_KEYO,NOWRT, SHR, 


00000 LIBSSUIC_KEY TABLE? : 
-BLKB 


ee 


$s 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


LABSTPARSE yboseprtgee Ogsg0:48  yayett BLisg=32 4.0274 


Sete Se Ge Ge ee ee 


00000 ; TPASKEYO 
U.1: -BLKB O 
00000 LIBSSIDENT KEV AT ABLE: : 


B 
00000 ; TPASKEYO 
; 0.27: .BLKB 0 


PSECT SUMMARY 


Name Bytes Attributes 
eet atttt: 1563 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, bie oAL Lente? 
_LIBSPARSE_KEYO Q NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
“LIBSPARSE_STATE 172 NOVEC.NOWRT, RD. EXE. SHR, LCL, REL, CON, PIC,ALIGN(1) 


Library Statistics 


ondeom “= Syabole «s<<-<<e Pages Processing 
File Total idaded Percent Mapped Time 
_$255$DUA28: PSVSLIBISTARLET -Laee' 9776 $8 g ig} 99:01 -0 
“$255$DUA28: CSYSLIBJTPAMAC.L 32; 1 42 3 7 4 0:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$: TPARSE/OBJ=OBJ$:TPARSE MSRC$: TPARSE/UPDATE=(ENH$: TPARSE) 


: Zizes 1531 code_+ 204 data bytes 
00:41.3 


un Time : 
ete fae 0126.4 
Lines/CPU Min: 753 
Lexemes/CPU-Min: 48464 
pe | Used: 341 pages 
Compilation a i 
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